load("02_22_halves_aggregate.RData")


require(slopegraph)

# Reduce lenght of label
rownames(halves_aggregate)[4] <- "liberalisation"
rownames(halves_aggregate)[6] <-"election and representation"
rownames(halves_aggregate)[7] <-"national politics"
rownames(halves_aggregate)[8] <-"needs and change"
rownames(halves_aggregate)[9] <-"online participation"
rownames(halves_aggregate)[12] <-"individual & social rights"

slopegraph(halves_aggregate, 
           labels=c('2009-2012', '2012-2015'), binval=3, offset.x=.03)